home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program118
< prev
next >
Wrap
Text File
|
2007-02-28
|
572b
|
26 lines
0010 // PROGRAM 118
0020 //
0030 // COMELY KATE
0040 //
0050 // TO FIND ALL BOOKS ON CHESS
0060 //
0070 DIM BOOK$ OF 40 //WORD$ OF 30 NOT NEEDED WITH COMMODORE COMAL
0080 //
0090 PRINT
0100 PRINT "THE FOLLOWING BOOKS ARE ABOUT CHESS"
0110 PRINT
0120 TOTAL#:=10
0130 OPEN FILE 3,"0:LIBRARY",RANDOM 42
0140 FOR COUNT#:=1 TO TOTAL# DO
0150 READ FILE 3,COUNT#: BOOK$
0160 CHECKTITLE("CHESS",BOOK$)
0170 ENDFOR COUNT#
0180 CLOSE FILE 3
0190 //
0200 PROC CHECKTITLE(WORD$,TITLE$)
0210 IF WORD$ IN TITLE$ THEN
0220 PRINT
0230 PRINT TITLE$
0240 ENDIF
0250 ENDPROC CHECKTITLE